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REMARKS 

Claim Rejections 

Claims 1-14 are rejected under 35 U.S.C. § 1 12, first paragraph. Claims 1-14 
are rejected under 35 U.S.C. § 103(a) as being unpatentable over Krause et al. 
(U.S. 6,154,757) in view of Ohi (U.S. 6,529,943). 

Amendments to Specification 

Applicant has amended the Specification as noted above to cure obvious 
grammatical and idiomatic inaccuracies. It is believed that the foregoing 
amendments to the Specification overcome the outstanding objections thereto. No 
"new matter" has been added to the original disclosure by the foregoing 
amendments to the Specification. 

Drawings 

It is noted that the Examiner has accepted the drawings as originally filed with 
this application. 

Claim Amendments 

By this Amendment, Applicant has canceled claims 4 and 13, and amended 
claims 1 -3, 5-6, 8-1 2 of this application. It is believed that the new claims specifically 
set forth each element of Applicant's invention in full compliance with 35 U.S.C. 
§112, and define subject matter that is patentably distinguishable over the cited 
prior art, taken individually or in combination. 

Please consult Appendix 1,2,3, 4, 5, 6 and 7. 

The technology revealed by Krause et al M column 6, lines 38-44, is described 

below: 

As shown in FIG. 2, the invention comprises the steps of 
collecting parameter input from the user (202); using the 
computer system to convert an electronic text to be presented 
in accordance with the parameter values selected (208); and 
using the computer system to display the text in accordance 
with the parameter values selected (210). 
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Krause et al. states, column 6, lines 56-58: 

The parameters can relate to the display of text -such as the 
rate of text advance, amount of text displayed on the screen, 
size and font of characters. 

In column 9, lines 19-24, Krause et al. uses those parameters to construct a 
best electronic text reading environment. 

On the other hand, Ohi's technology is to use memory to save the 
identification data of users, and use these identification data in turn to determine if 
the users are allowed to access the web pages. (Ohi, column 14, lines 48-59). But 
the technologies revealed by Krause et al. and Ohi or the combination of their 
technologies could not provide the technology revealed here. The technology of 
Krause et al. is to set up the style or the display format of electronic text according 
to the parameters input by the users. Even if it could make possible the connecting 
of other content related to this electronic text, it will not give the users the ability to 
change the content of the text. (Krause et al., column 16, lines 57-67; column 17, 
lines 1-7). In other words, the parameter offered by users could not increase or 
decrease the original content of the text, neither could change the display format of 
the specific or partial content in the whole text. The innovation implied by this 
technology is to provide the possibility for the user to add comments, underline or 
add deletion lines on the web page when they read the web pages by browser. 
Besides that, those changes on the document, be it in the comment, underline or 
deletion lines, all will be kept and reappear at another time when needed. 

It is generally understood that currently readers can't change the content of 
web pages when they are browsing the web pages in the browser. In other words, 
they have been limited in adding the comments, underline or deletion lines on the 
web page provided by the browser. The innovation implied in this technology is to 
overcome this limitation. When a reader read an online web page in browser, he can 
execute all the traditional reading assistant behaviors to help him to read more 
effectively. And when, at a late time, he needs to read the same web page, all the 
results of these changes caused by the reading assistant behaviors are saved and 
reappeared in the same web page. The reading assistant behaviors referred here 
are those behaviors like adding comments, underlines or deletion lines. There are 
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two kinds of reading assistant behaviors, one is to insert object to web page, the 
other is to change the display format of one portion of web page content. (Please 
consult the Application Page 4, lines 16-21). Writing comments could be 
categorized as insert web page object, since the reader adds the new object on the 
web page. On the other hand, underline or deletion line in a sentence of the text 
could be categorized as a display format changing of a web page object, since the 
content that has been underlined or marked with the deletion line doesn't change, 
only marks or underlines have been added to the specific content. 

The results of these reading assistant behaviors are called "reading records" 
in this Application. The function of allowing the users to execute the reading 
assistant behaviors is called "reading records function". 

When the reader closes the window of the web page, the information of those 
"reading records" will go back to the source web site and been saved. At another 
time, when the reader goes back to read the web page via Internet, all the "reading 
records" related to that web page will reappear. 

It is submitted that the claimed subject matter is described in Applicant's 
specification in sufficient detail to enable one having ordinary skill in the art to make 
and use Applicant's invention without undue experimentation. It is believed that 
Applicant's specification discloses how to make and use the claimed invention. 

Claim Rejections - 35 USC S 103(a) 

It is asserted in the Office Action that claims 1-14 are rejected under 35 USC 
§ 103(a) as being unpatentable over Krause et al. further in view of Ohi. 

Applicant respectfully disagrees. 

According to MPEP § 2142 "[t]o establish a prima facie case of obviousness, 
three basic criteria must be met. First, there must be some suggestion or motivation, 
either in the references themselves or in the knowledge generally available to one 
of ordinary skill in the art, to modify the reference or to combine reference teachings. 
Second, there must be a reasonable expectation of success. Finally, the prior art 
reference (or references when combined) must teach or suggest all the claim 
limitations. 
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Claims 2-7 depend on claim 1. Claims 9-14 depend on claim 8. As 
discussed below, Krause et al. and Ohi do not teach, disclose or suggest the 
limitations contained in Applicant's claims 1 and 8, as listed above. 

Krause et al. do not disclose that the method provides a number of reading 
functions to be implemented on a web page. (See Krause et al., Column 6, lines 56- 
60). 

Krause et al. also do not disclose that the method includes receiving reading 
records entered by the users through the reading records function on the web page 
and instantly displays the reading records on the web page. (See Krause et al., 
Column 7, lines 7-15). 

It is different that the content of the invention is a web page and the content 
of Krause et al. is not web page. The format of a web page is formed in HTML but 
the format of Krause et al. is formed in electronic text, such as WORD, PDF. 

In the invention, the reading record is created in the content directly and the 
web page is changed. But in Krause et al., the supplemental reference document 
is another electronic text linking to the content. The content of Krause et al. is not 
changed. 

The page data (See Ohi, column 14, lines 48-59) is different from the web 
page of the present invention. A web page may provide a dialog box for user to fill 
in. The page data means the data filled in the dialog box by user. 

Therefore, according to the differences discussed above, Krause et al. and 
Ohi teach away from Applicant's claimed invention. 

Neither Krause et al. nor Ohi disclose, or suggest a modification of their 
specifically disclosed structures that would lead one having ordinary skill in the art 
to arrive at Applicant's claimed structure. Applicant hereby respectfully submits that 
no combination of the cited prior art renders obvious Applicant's amended claims. 
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Summary 

In view of the foregoing amendments and remarks, Applicant submits that this 
application is now in condition for allowance and such action is respectfully 
requested. Should any points remain in issue, which the Examiner feels could best 
be resolved by either a personal or a telephone interview, it is urged that Applicant's 
local attorney be contacted at the exchange listed below. 



TROXELL LAW OFFICE PLLC 
5205 Leesburg Pike, Suite 1404 
Falls Church, Virginia 22041 
Telephone: 703 575-2711 
Telefax: 703 575-2707 



Respectfully submitted, 



Date: February 22. 2005 



By: 




Bruce H. Troxell 
Reg. No. 26,592 
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Appendix 1 

The Definition of DReading recordsD 

When a reader read a paper in print, he often use pens to add commentary on the 
aper, or underline sentences or paragraph to highlight, or even mark on them to 
mean erase. All these commentaries, underline, or mark to erase, will be called 
□reading records Dhere in the computer screen when a reader read a digital document. 
Like in the print case, when readers pick the paper which he made some marks or 
commentaries before, he will find all theseDreading recordsDare still there on the 
paper. So when a reader opens a digital document again, he will find the Dreading 
records □ he made before are there too. 

A software, by which the reader could open and read a digital document, should 
provide the functions to let the reader to add commentaries, underline or mark via 
input device, like by mouse, instead of pens in the print case, to leave the Dreading 
records Don the digital document. For the time being, a lot of office software could 
provide the similar editorial function, as in Microsoft Word, to achieve the effects we 
describe above. Those software will show theDrecording recordsDonce the reader use 
the input device to comment, underline or mark a content in real time, and save those 
□recording recordsD. If the reader opens the document the other day, he will find the 
Dreading recordsDwill appear once again. 

But if the software is a browser, and the document is a web page, then the reader 
will not be able to add Dreading recordsD on the web page via input devise when he 
reads the web page on the browser. The content in the web page is only for 
browsing as the browser provides only browsing function as well. The technology 
newly developed here is to overcome the limitation to let reader be able to add the 
□reading recordsD, such as commentaries, underlines, marks, on the web page 
presented in the browser, via input device. Besides of that, when the reader connects 
to Internet to reach the same web page the other day, he will find th£] reading recordsD 
which he made before on the web page are still there. 

Our web page examples are put in two forms to be examined. The web page is 
located in the web site http://140. 1 1 5.8.222/readingrecords/ or saved in the disk of 
Appendix 2. The image of former (in website) is shown in Appendix 3, and the image 
of latter web page (in the disk) is shown as in Appendix 4. The web site 
http://140. 1 1 5.8.222/readingrecords/ could save threading recordsDnade by readers 
on the web page and in the other day when the readers go back to visit the web page, 
all theDreading recordsDwill reappear. In the case of disk, Appendix 2, since the web 
page is not located in the Internet, so all the changes, so called Dreading recordsD, 



will be saved temporally in that web page, if the reader click the button [display 
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original content] 103B, please consult Appendix 4, the original web page content will 
be displayed, but if the reader click the button of reappear reading record^ 104B, the 
web page will appear theDreading recordsDmade before, including all the 
commentaries, underlines and marks. 

Appendix 5 shows the source codes of the web page put in 
http://140. 1 15.8.222/readingrecords/ . The source codes of the web page put in the 
disk is shown in Appendix 6. Appendix 7 shows the steps of operation of Dreading 
recordsDwhen a reader goes through the web page of the disk in Appendix 2. 

If a reader visit and log in the http://140.115.8.222/readingrecordsA then he will 
see the image as shown in Appendix 3; or he downloads the web page to Appendix 2 
by browser, then he will see the image as shown in Appendix 4. 

Below is to take the web page in Appendix 2 as an example to demonstrate the 
implication of Dreading records □. 

Please consult Appendix 7, fig 1, if the reader wants to insert a text in the place 
after the words "dedicated" in 130B, he could click there by mouse, and then click the 
button of [insert text object! 10 IB, a text box will show up right away to let the reader 
key in the text he wants to put in that place. After the reader finishes the text inserted, 
he could click the Enter, the place after the word "dedicated" will appear in turn, in 
real time, a key icon. When the reader moves mouse to the key icon, the key icon will 
show a small pop window frame, in which the text inserted will display as well 
(Please consult Appendix 7, fig 2). The info about the "insert text object" will be 
shown in 120B (please consult the Application , Page 7, Lines 16-20: identification 
data for the object at the inserting location; inserting location indication; 
identification data and type of the inserting object; contents of the inserting object; 
HTML program codes required for the inserting object), including: cons4 ; 122 ; _ ; _ ; 
<img align=absMiddle src^'images/smalLpencil.gif id = , fnol_cons4' border=0 

alt='devoted your time, energy etc on ' style='cursor:hand' 

onclick='jumpFN()' onmousedown=*fnDL()'>. The first parameter cons4 represents 
the identification data of the object including "dedicated"; second parameter 122 
represents the inserting location in the object; the third parameter is void value, since 
the 5 th parameter will show the identification data of the key icon and the inserting 
type. The 4 th parameter also is void, since the 5 th parameter will indicate the content 
of the text inserted; the 5 th parameter is the HTML codes of the insert text object. In 
this example, the five parameters indicate the inserting location and the 
corresponding HTML codes of the insert text object. Based on these parameters, the 
technology innovated here is to do programming to make the HTML codes of the 
object insert to the place after the word "dedicated" in real time. 

To know more about program codes, please consult Appendix 6, Page 11, Lines 
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1-23. To know the innovation in the technology, please consult the Application, Page 
5, Lines 22-26 and Page 5, Lines 30-33. The example of "insert text object" above is 
an application of "Insert object means" (please consult the Application Page 5, Lines 
1 1). The text box, which being used to insert the text as described above, could be 
placed directly in the inserting location. After the reader finish keying in text, the 
corresponding HTML codes will be put to that location in real time, and the insert 
text will be shown on the web page as well. 

Please consult Appendix 7, fig 3. If the reader selects "this is a" in 130B, and click 



Add a deletion line | 102B button, then a deletion line will show on the "this is a" 
( please consult Appendix 7, fig 4). The information of "Add a deletion line" will 
show as 120B (please consult the Application , Page 7, Lines 20-23 □ identification 
data for the changed display format object; location indication for the changed 
display format; type of the changed display format; setting contents of the changed 
display format; HTML program codes required for the changed display format), 
which include: cons6 ; 187|9 ; _ ; _ ; <s id='unll_cons6'>this is a</s>. The first 
parameter cons6 represent the identification data of the object including "this is a"; in 
the second parameter 187|9, 187 indicates the location of "this is a" in the object, 
and 9 indicates the longitude of "this is a"; the third parameter is void, since the fifth 
parameter will indicate the type of changing display format; the forth parameter is 
void value, because from the fifth parameter the content of the display changes will 
be known; the fifth parameter is the HTML codes for adding a deletion line on "this is 
a". In this example, these five parameters are used to indicate the location where the 
display format is going to change, and the corresponding HTML codes required to 
make the display format changed. The innovation in technology in this case is to do 
the programming to add the deletion line on "this is a" by replacing the selected 
portion "this is a" with the related HTML codes in real time. 

To see the related program source codes, please consult Appendix 6, Page 7, Line 
12 - Page 10, Line 14. To know the innovation in technology, please consult the 
Application Page 6, Lines 18-19 and Page 6, Lines 27-28. "Add a deletion line" 
functions as "Change display format means", to see the innovation in technology, 
please consult the Application Page 5, Lines 12. 

The web page in Appendix 2 is not put in Internet, so the related information of 
□reading recordsd mentioned above is saved temporally in that page. The reader 



could click the button of display original content 103B to make the original content 



of web page to display. And then click the button of [reappear reading records] 104 B 



to make the page with the comments or deletion lines added reappear. 

If the reader log in to the http://140.115.8.222/readingrecords/ , then he will see the 
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image as shown in the Appendix 3. After the reader inserted the text object or added a 
deletion line, he could click the [Close Window) 103 A button to close the window. 
Before the window close, the program in question will transfer the identification data 
of the reader and its corresponding Dreading recordsDback to and saved the web site, 
in real time. Below are the related program codes: 
Function SaveCons() 

please consult Appendix 5, Page 24, Line 33 ~ Page 26, Line 2 
End Function 

When the reader log in again and download the web page, the program could use 
those identification data of the reader and the saved Dreading records D connected to 
that identification data to display the original content and the corresponding Dreading 
recordsD of the web page in the web browser. Below are the related program codes: 
Sub Window_onload() 

please consult Appendix 5, Page 4, Line 20 ~ Page 5, Line 25 
End Sub 

To see the program codes please consult Appendix 5. To know the innovation of 
the technology please consult the Application Page 7, Lines 2-24. The reader could 
click the button of the [display original content] 104A in Appendix 3, to display the 
original content of the web page without theDreading recordsD, and then proceed the 
Dreading recordsD operation. 
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: Insert text object | , Add a deletion line | Close window | Display original content | 






120A 
Reading Records 






*W ~ID * "' '. Lbcd"tibn : ' ' Type 7 '"?7 ~ Contents' 1J ' W ■ ^ ■ ■ ■< r ' T ■ html. Codes ~ r " " ' 






130A 






(The Gettysburg Address — Abraham Lincoln 






Four Scores and seven years ago our fathers brought forth this continent a new nation, 
conceived In liberty, and dedicated to the proposition that all men are created equal. 






Now we are engaged In a great civil war, testing whether that nation, or any nation so 
conceived and so dedicated, can long endure. We are met on a great battle fields of that war. 
this is a ... 
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103B 


104B 


1 Insert text object | 


Add a deletion line | 


i Display original content 


| Reappear reading records | 



120B 
Reading Records 

L77!*^|77t^ 77" ..777 77 HTML Codes 7 . . 7" 



130B 

(The Gettysburg Address - Abraham Lincoln 

Four Scores and seven years ago our fathers brought forth this continent a new nation, 
conceived in liberty, and dedicated to the proposition that all men are created equal. 

Now we are engaged in a great civil war, testing whether that nation, or any nation so 
conceived and so dedicated, can long endure. We are met on a great battle fields of that war 
..this is a ... 
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<HTML> 
<HEAD> 

<TITLE>::Reading Records: :</TITLE>~ 
5 <style type- 'text/css M > 
body, input { 

font: 15px Verdana; 

background: #FFFFFF; 

} 

10 .fieldWidth{ 

width: 150px; 

} 

.field Width2{ 
width:200px; 

15 } 

.eventList { 

font: 1 lpx Verdana; 
height: 200px; 
width: 375; 
20 background-color:#FFFFFF; 
} 

</style> 
</HEAD> 

<BODY topmargin= ?, 0" leftmargin="0" scroll=no 
25 oncontextmenu="window.event.returnValue=false"> 

<input type=hidden id- sAddAll* value- f > 

<img id =tt editCursor ft src= M images/edit_cursor.gif ' 

style="position:absolute;disp!ay:none;"> 

<img src- 'images/smalljencil.gif 1 style="display:none; M > 
30 <input type- 'text'* id- 'inputBox" size- '25" value= MM style- 'position:absolute;z- 

index:l;border:0;color:bIack;background:#33CCFF;display:none;" 

onkeyup="inputBoxKeyup() M onmousedown- ! window.event.cancelBubble=true" 

onmouseup- 'window.event.cancelBubble=true M 

onclick- 'window.event.cancelBubble^rue" 
35 ondblclick="window.event.cancelBubble=true M > 
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<center><font size=4>l 10A</font></center> 
<table align=center border=l bordercolor=black width=800> 
<tr> 

<td width=100% align=center> 
5 <table border=0 width= 1 00% align=center> 

<tr> 

<td align=center width=25%> 
<center><font size=4> 1 0 1 A</font><ycenter> 

<input type=button onmousedown="window.event.cancelBubble=true" 
10 onmouseup="window.event.canceIBubble=true" id="InsertTextBtn M value- 'Insert text 
object" class="fieldWidth" onclick="insertFootNote()"> 
</td> 

<td align=center width=25%> 
<center><font size=4> 1 02 A</font></center> 
1 5 <input type=button onmousedown= n window.event.cancelBubble=true" 

onmouseup= M window.event.cancelBubble=true" id= n AddDelBtn M value="Add a 
deletion line" class="fieldWidth" onclick="addDelLine()"> 
</td> 

<td align=center width=25%> 
20 <center><font size=4> 1 03 A</font></center> 

<input type=button onmousedown= !t window.event.cancelBubble=true" 
onmouseup="window.event.cancelBubble=true M id="CloseBtn" value="Close window" 
class="fieldWidth" onclick-"SaveCons()"> 
</td> 

25 <td align=center width=25%> 

<center><font size=4> 1 04 A</font></center> 

<input type=button onmousedown="window.event.cancelBubble=true" 
onmouseup= M window.event.cancelBubble=true n id="OriBtn" value="Display original 
content" class="fieldWidth2" onclick="ShowOri()"> 
30 </td> 
</tr> 
</table> 
</td> 
</tr> 
35 </table> 



Appendix 5 

Total 26 



<br><br> 

<center><font size=4> 1 20A</font></center> 
<center><font size=4>Reading Records</font></center> 
<table align=center border=l bordercolor=black width=800> 
5 <tr> 

<td width=100%> 

<div style="OVERFLOW: auto;width:798;height:130" id="RRDiv"> 
</div> 
</td> 
10 </tr> 
</tabIe> 
<br><br> 

<center><font size=4> 1 30A</font></center> 
<table align=center border=l bordercolor=black width=800> 
15 <tr> 

<td width=100% id= n MyList n > 
<br> 

<font color= M blue" step="l ft sAdd-" 1 id=consl onmousedown- TontdownO" 
onmouseup="fontup() M onclick= !l fontclick() n 
20 ondblclick-Tontdblclick()"> &n^ 

      &^ 
       &^ 

        <font><fom color= M blue" 
step- T ! sAdd=" M id=cons2 onmousedown =l, fontdown()" onmouseup="fontup() ft 

25 onclick-'fontclickO" ondblclick- TontdblcIickO'VThe Gettysburg Address — Abraham 
Lincoln</font><font coIor= n blue M step="l" sAdd= ,Mt id=cons3 
onmousedown="fontdown() M onmouseup="fontup() ,, onclick="fontclick() ,f 
ondblclick= l Tontdblclick() ,, ><br><br>     & 
p; </font><font color="blue" step="l n sAdd=" n id=cons4 

30 onmousedown-'fontdownO" onmouseup- 'fontup() l! onclick- 'fontclick() ft 

ondblclick- 'fontdblcIick()">Four Scores and seven years ago our fathers brought forth 
this continent a new nation, conceived in liberty, and dedicated to the proposition that 
all men are created equal.</font><font color= n blue M step- ' 1" sAdd- id=cons5 
onmousedown-TontdownO" onmouseup-' fontup()" onclick= M fontclick()" 

35 ondblclick- Tontdblclick() M ><br><br>&^ 
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p; </font><font color="blue M step=*T' sAdd= ,,M id=cons6 
onmousedown- TontdownO' 1 onmouseup="fontup()" onclick="fontclick()" 
ondblclick- 'fontdblcIick()">Now we are engaged in a great civil war, testing whether 
that nation, or any nation so conceived and so dedicated, can long endure. We are met 

5 on a great battle fields of that war this is a ...</font> 

<br>  
</td> 
</tr> 
</table> 
10 </BODY> 
</HTML> 

<Script Language="VBScript"> 
dim 

15 downRange,ClkStartPoint,PosTop,PosLeft,footNote,PageChange,insertType,srcDLObj, 
selText,fontCollection,OriRRCons,OriRRConsF,srcStartObj,srcEndObj 
dim A110riHtml() 
ReDim AllOriHtml(O) 

20 Sub window_onload() 

OriRRCons= ,f <table border=l bordercolor= f #cccccc f width=780 align=left 
cellspacing=l cellpadding=0><tr><td bgcolor=#cccccc align=center width=10%><font 
size=2>ID</font></td><td bgcolor=#cccccc align=center width=10%><font 
size=2>Location</font></td><td bgcolor=#cccccc align=center width=13%><font 

25 size=2>Type</font></td><td bgcolor=#cccccc align=center width=l 3%><font 

size=2>Contents</font></td><td bgcolor=#cccccc align=center width=54%><font 
size=2>HTML Codes</font></td></tr></table>" 

window.document.all("RRDiv n ).innerHtml=OriRRCons 
OriRRConsF= n <table border=l bordercolor='#cccccc' width=780 align=left 

30 cellspacing=l cellpadding=0><tr><td bgcolor=#cccccc align=center width=10%><font 
size=2>ID</font></td><td bgcolor=#cccccc align=center width=10%><font 
size=2>Location</font></td><td bgcolor=#cccccc align=center width=13%><font 
size=2>Type</font></td><td bgcolor=#cccccc align=center width=13%><font 
size=2>Contents</font></td><td bgcolor=#cccccc align=center width=54%><font 

35 size=2>HTML Codes</font></td></tr> M 
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set fontCollection=document.all.tags( M font M ) 
num=0 

for each fltem in fontCollection 
5 if left(fltem.id,4)= !, cons M then 

parald=fltem.id 

A110riHtml(num)=paraId & ,,AAAAAM & 
window.document.all(paraId).innerHtml 
num=num+l 

10 ReDim Preserve AllOriHtml(num) 

end if 

next 

if window.document.all( H sAddAH").valueo MM then 
1 5 waitTemp=AddCons() 

waitTemp=AddReadingRecords() 
end if 

Set downRange=window.document.body.createTextRange 
20 downRange.moveToElementText window.document.all("cons2 M ) 

downRange.collapse(true) 
editCursorDisplay() 
srcDLObr"cons2 M 
End Sub 

25 

Sub fontdownO 
selText="" 

if window.event.srcElement.parentElemenUd-'MyList" then 
window.editCursor.style.display= n none M 
30 srcDLObj=window.event.srcElement.id 
end if 
End Sub 



35 



Sub fontup() 

if window.event.srcElement.parentElement.id : 
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if window.document.selection.createRange.texto'" 1 then 
window.editCursor.style.display= M none' ! 
selText=window.document.selection.createRange.text 
Set Range 1 ^indow.document.selection.createRange 
5 Set Range2=window.document.selection.createRange 

Range 1 .collapse(true) 
Range2.collapse(false) 
srcStartObj=Range 1 .parentElement.id 
srcEndObj=Range2.parentElement.id 

10 else 

selText= M " 

waitTemp=DownPos(window.event.srcElement.id) 
waitTemp=editCursorDisplay() 
end if 
15 end if 

End Sub 



Sub fontclickQ 



20 End Sub 



Sub fontdblclick() 

if window.event.srcElement.parentElement.id- MyList" then 
if window.document.selection.createRange.texto"" then 
25 window.editCursor.style.display= M none" 
srcDLObj=window.event.srcElement.id 
selText=window.document.selection.createRange.text 
Set Range l=window.document.selection.createRange 
Set Range2=window.document.selection.createRange 
30 Range 1 .collapse(true) 

Range2.collapse(faIse) 
srcStartObj=Rangel. parentElement.id 
srcEndObj=Range2. parentElement.id 
end if 

35 elseif window.event.srcElement.id- 'editCursor" then 
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10 



5 



if window.document.selection.createRange.texto"" then 
window.editCursor.style.display="none" 
srcDLObj=window.downRange.parentElement.id 
selText^indow.document.selection.createRange.text 
Set Range 1 =window.document.selection.createRange 
Set Range2=window.document.selection.createRange 
Range 1 .collapse(true) 
Range2.collapse(false) 
srcStartObj=Rangel.parentEIement.id 
srcEndObj =Range2 . parentE lement . id 



end if 
end if 
End Sub 

1 5 Sub editCursor_ondblclick() 

window.document.all(window.downRange.parentElement.id).ondblclick 
window.event.cancelBubble=true 
End Sub 

20 Sub addDelLineO 

ifselTexto"" then 

if srcStartObjosrcEndObj then 

msgbox "It can't add a deletion line here ! ! \64, "Warning" 
window.document.selection.empty 
25 exit sub 

end if 

if instr(l,Icase(window.document.selection.createRange.htmltext),"<img 
")o0 then 

msgbox "It can't add a deletion line here!'\64,"Warning" 
30 window.document.selection.empty 



exit sub 



end if 



35 



selId=srcDLObj 

PosData=GetSelPos(selId) 

PosTemp=split(PosData,"|H") 
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sPos=PosTemp(0) 

appld- 'unl" & window.document.all(selId).step & & selld 

window.document.all(selId).sAdd=window.document.all(selId).sAdd & 
window.document.a!l(selId).step & M @<s id= ,M &appId& ,n >" & selText & "</s>@ n & 
sPos & "|" & len(selText) &"@"&appld&"" & ,,AA " 

window.document.all(selld).step=cint(window.document.all(selld).step)+l 

PageChange=true 

AddReadingRecords() 

eachStep=split(window.document.all(selId).sAdd," AAM ) 

tempHtml=window.document.all(selId).innerHtml 

tempHtml=replace(tempHtml s chr(13), ,,n ) 

tempHtm l=replace(tempHtml,chr( 1 0), " ") 

NewHtml=tempHtml 

for j=0 to cint(window.document.all(selId).step)-2 
addChar=0 

stepCons=split(eachStepG)» ,, @ M ) 
if j=0 then 

if stepCons(l)o"all M then 

if instr(l,stepCons(2), , T , )=0 then 

NewHtml=mid(NewHtml,l,stepCons(2)) & stepCons(l) 
& mid(NewHtmI,stepCons(2)+l) 

else 

tempPos=split(stepCons(2), n r) 

NewHtml=mid(NewHtmU,tempPos(0)) & stepCons(l) & 
mid(NewHtml,cint(tempPos(0))+l+cint(tempPos(l))) 

end if 
end if 

else 

fork=0 toj-1 

stepTemp=split(eachStep(k) ? n @ n ) 
if instr(l J stepCons(2), ,, |")=0 then 
Pos2=cint(stepCons(2)) 

else 
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tempPos=split(stepCons(2),'*| M ) 
Pos2=cint(tempPos(0)) 
end if 

if instr(l,stepTemp(2), ,, |") = 0 then 
Pos 1 =cint(stepTemp(2)) 
Pos3=0 

else 

tempPos=split(stepTemp(2),"r) 
Posl=cint(tempPos(0)) 
Pos3=cint(tempPos(l)) 
end if 

ifPosl<Pos2 then 

ifstepTemp(l)o n all n then 

addChar=addChar+len(stepTemp( 1 ))-Pos3 

end if 
end if 

next 

ifstepCons(l)o M all n then 

if instr(l,stepCons(2),"r)=0 then 
Pos 1 =cint(stepCons(2)) 

else 

tempPos=split(stepCons(2) ) ,, r) 
Posl=cint(tempPos(0)) 
end if 

if mid(lcase(NewHtm l),Pos 1 + 1 +addChar,2)= M </" then 
if instr(l 5 stepCons(2), M | M ) = 0 then 

unEndTemp-instr( 1 ,mid(NewHtm l s stepCons(2)+ 1 +addChar),"> M ) 

NewHtml=mid(NewHtml 3 l J stepCons(2)+addChar+unEndTemp) & stepCons(l) & 
mid(NewHtml,stepCons(2)+l+addChar+unEndTemp) 

else 

tempPos=split(stepCons(2) ? " | ") 

unEndTemp=instr(l 5 mid(NewHtml,tempPos(0)+l+addChar) 5 n > n ) 
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NewHtml=mid(NewHtml,l,tempPos(0)+addChaH-unEndTemp) & stepCons(l) & 
mid(NewHtml,cint(tempPos(0))+cint(tempPos(l))+l+addChar+unEnd 

end if 

5 else 

if instr(l,stepCons(2y'|")=0 then 

NewHtml=mid(NewHtml, 1 ,stepCons(2)+addChar) & 
stepCons(l) & mid(NewHtml,stepCons(2)+l+addChar) 

else 

10 tempPos=split(stepCons(2),*T') 

NewHtml=mid(NewHtml, 1 5 tempPos(0)+addChar) & 
stepCons( 1 ) & m id(NewHtml 9 cint(tempPos(0))+cint(tempPos( 1 ))+ 1 +addChar) 

end if 
end if 

15 end if 

end if 

next 

window.document.all(selId).innerHTML=NewHtml 
window.document.selection.empty 
20 selText-"" 
end if 
End Sub 



Dim tempSrcDLObj 
25 Sub insertFootNote() 

if downRange- or window.editCursor.style.display="none" then exit sub 

footNote= M " 

insertType= n fn M 

tempSrcDLObj=srcDLObj 
30 window. inputBox.style.posTop=PosTop+ 16 

window.inputBox.style.posLeft=PosLeft 

window.inputBox.value= ,!M 

window.inputBox.style.display= MM 

window. inputBox.focusO 
35 End Sub 
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Sub inputBox_onblur() 

if window.inputBox.valueo"" then 
inputBoxChange() 

end if 
End Sub 

Sub addFootNote() 

if footNote-'" then exit sub 
srcDLObj=tempSrcDLObj 
RealPos=GetPos(srcDLObj) 
OriHtml=GetOriHtmI(srcDLObj) 

appId="fno M & window.document.all(srcDLObj).step & "_" & srcDLObj 

window.document.all(srcDLObj).sAdd==window.document.all(srcDLObj).sAdd & 
"" & window.document.all(srcDLObj).step & "@<img align=absMiddle 
src='images/small_pencil.gif id= m & appld & border=0 alt= ,n & footNote & "' 
style^cursorihand' onclick^jumpFNO' onmousedown='fnDL()*>@ M & RealPos & "@" 
& appld & & MAA " 

PageChange=true 

AddReadingRecords() 
footNote=replace(footNote,chr( 1 3), n <br> M ) 

NewHtml=NowHtmI(srcDLObj,OriHtml) 

window.document.aIl(srcDLObj).innerHTML=NewHtml 

window.document.all(srcDLObj).step=cint(window.document.all(srcDLObj).step) 

+1 

window.editCursor.styIe.display="none M 
downRange-"' 
End Sub 

Function inputBoxKeyup() 

if window.event.keyCode=27 then 

window.inputBox.style.display= ft none" 
window.inputBox.value-'" 
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end if 

if window.inputBox.valueo"" then 

if window.event.keyCode==13 then inputBoxChange() 
end if 
5 End Function 

Function inputBoxChange() 

if window.inputBox.valueo ,m then 
footNote=window. inputBox. value 
1 0 if insertType="fn" then 

addFootNote() 
elseif insertType- 'efn" then 

editFootNote() 
end if 

1 5 window. inputBox. value=" M 

window.inputBox.styIe.display="none" 
end if 
End Function 

Sub editFN() 

insertType-'efn" 
footNote-"" 
appId=srcDLObj 

fnTemp=window.document.all(appId).alt 

Set tempRange=window.document.body.createTextRange 
tempRange.moveToEIementText window.document.all(appld) 
tempRange.coIlapse(true) 

30 window.inputBox.style.posTop=tempRange.offsetTop+16 
window.inputBox.style.posLeft=tempRange.offsetLeft 

window. inputBox. value=fnTemp 
window.inputBox.style.display^"" 
35 window. inputBox.focus 
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End Sub 

Sub editFootNote() 
appId=srcDLObj 
5 iffootNote= ,,n then 

msgbox "Please input text!",48," Warning" 
srcDLObj= M _" 
exit sub 
end if 

1 0 window.document.aIl(appId).alt=footNote 

paraId=window.document.aII(appId).parentElement.id 

eachStep=split(window.document.all(paraId).sAdd > " AA ") 
for i=0 to cint(window.document.all(paraId).step)-l 
1 5 stepCons=split(eachStep(i) 3 "@") 
if stepCons(3)=appId then 

for j=0 to cint(window.document.all(paraId).step)-2 
stepConsTemp=split(eachStep(j),"@") 
if j<i then 

20 stepTemp=stepTemp & stepConsTemp(O) & "@" & 

stepConsTemp(l) & "@" & stepConsTemp(2) & "@" & stepConsTemp(3) & M/ 
elseif j=i then 

stepTemp=stepTemp & stepConsTemp(O) & "@<img 
src='images/small_pencil.gif id= m &appld&"' border=0 alt= m &footNote& m 
25 style-'cursor:hand' onclick^jumpFNO^®" & stepConsTemp(2) & "@ n & 
stepConsTemp(3) & MAA " 

elseif j>i then 

stepTemp=stepTemp & stepConsTemp(O) & "@" & 
stepConsTemp(l) & "@" & stepConsTemp(2) & "@" & stepConsTemp(3) & 
30 end if 

next 
exit for 
end if 

next 

35 window.document.all(paraId).sAdd=stepTemp 
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PageChange=true 
AddReadingRecords() 
srcDLObj= M _" 
End Sub 

5 

Function DownPos(Sentld) 

Set downRange=window.document.body.createTextRange 

downRange.moveToPoint window.event.x,window.event.y 

Set tempRange = document.body.createTextRange 
10 tempRange.moveToElementText(document.alI(SentId)) 

downRange.setEndPoint n StartToStart",tempRange 

tempClk=downRange.text 

tempClk=replace(tempClk ? chr(10); ,M ) 

tempClk=replace(tempCIk,chr(13) 5 MM ) 
1 5 ClkStartPoint=len(tempClk) 

downRangexolIapse(false) 
End Function 



Function editCursorDisplay() 
20 downX^window.downRange.offsetLeft 
downY=window.downRange.ofFsetTop 



window.editCursor.style.display= n none" 
PosTop=window.downRange.offsetTopH-window.document.body.scrollTop 
25 PosLeft^indow.downRange.offsetLeft+window.document.body.scrollLeft 
window.editCursor.style.posTop=PosTop 
window.editCursor.style.posLeft=PosLeft-5 
window.editCursor.style.display= M,! 
window.editCursor.src="images/edit_cursor.gif' 
30 End Function 



Function GetSelPos(Sentld) 

Set selectRl=window.document.selection.createRange 
Set selectR2=window.document.selection.createRange 
35 selectRl .collapse(True) 

P14 



Appendix 5 



Total 26 



selectR2.co!lapse(FaIse) 

Set tempR 1 =window.document.body .createTextRange 
tempRl.moveToEIementText(window.document.alI(SentId)) 
5 tempRl .collapse(true) 

1=1 

selectRl .setEndPoint "StartToStart M ,tempRl 
tempText=replace(selectRl .text,chr(l 0),"") 
tempText=replace(tempText 5 chr(13), MM ) 
10 R 1 Len=len(tempText) 

RlCheckLen=Ien(selectRl .text) 
selectRl .collapse(false) 
selectRl .move "character",-cint(RlLen) 
selectRl .setEndPoint M StartToStart'\tempRl 
1 5 if len(selectRl .htmlText)=0 then 1=0 

selectRl .collapse(false) 
do while(l=l) 

selectRl. move fl character M ? -l 

selectRl .setEndPoint n StartToStart f, ,tempRl 
20 if len(selectRl ,htmlText)=0 then 1=0 

selectRl .collapse(false) 

RlLen=RlLen+l 

loop 

25 Set tempR2=window.document.body.createTextRange 

tempR2.moveToElementText(window.document.all(SentId)) 

tempR2.collapse(true) 

1=1 

selectR2.setEndPoint "StartToStart'\tempR2 
30 tempText=replace(selectR2.text,chr( 1 0),"") 

tempText=replace(tempText 5 chr(13), MM ) 

R2Len=len(tempText) 

selectR2.collapse(false) 

selectR2.move M character n ,-cint(R2Len) 
35 selectR2.setEndPoint M StartToStart M ,tempR2 
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if Ien(selectR2.htmlText)=0 then 1=0 

selectR2.col!apse(faIse) 

do while(l=l) 

selectR2.move "character",- 1 
5 selectR2.setEndPoint "StartToStart",tempR2 

if len(selectR2.htmlText)=0 then 1=0 

selectR2.collapse(false) 

R2Len=R2Len+l 

loop 

10 

eachStep=split(window.documentall(SentId).sAdd 5 ,,AAM ) 
for i=0 to int(window.document.all(SentId).step)-2 
stepCons=split(eachStep(i), ,, @") 
ifstepCons(l)o"all" then 
1 5 if window.document.alI(stepCons(3)) is nothing then 

elseif lcase(Ieft(stepCons(3),3))="fno" then 

Set checkR 1 =window.document.body .createTextRange 
checkRl.moveToElementText(window.document.all(stepCons(3))) 
checkRl .collapse(true) 
20 checkRl .setEndPoint "StartToStart M ,tempRl 

if len(checkRl .text)<=RlCheckLen then 
RlLen=RlLen-l 
R2Len=R2Len-l 
end if 

25 end if 

end if 

next 



for i=0 to ubound(A110riHtml)-l 
30 temp=split(A110riHtml(i) J " AAAAA ") 
if temp(0)=SentId then 
tempHtml=temp(l) 
exit for 
end if 

35 next 
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tempHtml=replace(tempHtml 5 chr(13) ? nM ) 
tempHtml=rep!ace(tempHtmI 5 chr(10), MM ) 
window.document.all(SentId).innerHtml=tempHtmI 

5 selectRl.moveToElementText(window.document.aIl(SentId)) 
selectRLcoIlapse(true) 
selectR 1 .move "character",R 1 Len 

selectR2.moveToElementText(window.document.all(SentId)) 
selectR2.collapse(true) 
10 selectR2.move "character l \R2Len 

FDelete=faIse 
LDelete=false 

1 5 if lcase(right(window.document.selection.createRange.htmltext 9 4))= n <br>" then 

selectR2.move "character 1 ',- 1 

OriL=len(window.document.all(SentId).innerHtml) 
selectRl.pasteHtml ,, |#tempS#| M 

if len(window.document.all(SentId).innerHtml)-OriL=14 then FDelete=true 
20 OriL=len(window.document.alI(SentId).innerHtml) 
se!ectR2.pasteHtml "|#tempE#|" 

if len(window.document.all(SentId).innerHtml)-OriL=14 then LDelete=true 

tempHtml=window.document.all(SentId).innerHtml 
25 if FDelete then tempHtml=replace(tempHtmI ) M  |#tempS#| M s ,, |#tempS#|") 

if LDelete then tempHtml=repIace(tempHtml, M  |#tempE#r, M |#tempE#|") 
tempHtml=replace(tempHtml,chr( 1 3)," M ) 
tempHtml=replace(tempHtml,chr( 1 0 )/"') 

30 sPos=instr(l,tempHtml 5 ,, |#tempS#r , )-l 

tempHtml=replace(tempHtml J M |#tempS#r , 5 ,tM ) 
window.document.alI(SentId).innerHtml=tempHtml 
tempHtmI=window.document.all(SentId).innerHtml 
35 tempHtml=replace(tempHtml,chr(13)," n ) 
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tempHtml=replace(tempHtmI,chr(10), MM ) 
ePos=instr( 1 .tempHtml," |#tempE#|")- 1 

tempHtml=replace(tempHtml 5 ,, |#tempE#r , ) MM ) 
5 window.document.all(SentId).innerHtml==tempHtml 

GetSelPos=sPos & "III" & ePos 
End Function 

1 0 Function GetPos(Sentld) 

Set tempRl=window.document.body.createTextRange 
tempRl.moveToElementText(window.document.all(SentId)) 
tempRl .collapse(true) 
1=1 

1 5 window.downRange.setEndPoint "StartToStart",tempRl 

window.downRange.select 

RlLen=len(window.downRange.text)-10 
20 RlCheckLen=len(window.downRange.text) 
windo w.do wnRange .co 1 lapse(false) 
window.downRange.move "character",-cint(RlLen) 
window.downRange.setEndPoint "StartToStart n ,tempRl 
if len(window.downRange.htmlText)=0 then 1=0 
25 window.downRange.collapse(false) 
do while(l=l) 

window.downRange.move "character",- 1 
window.downRange.setEndPoint "StartToStart",tempRl 
if len(window.downRange.htmlText)=0 then 1=0 
30 window.downRange.collapse(false) 
RlLen=RlLen+l 

loop 

eachStep=split(window.document.all(SentId).sAdd," AA ") 
35 for i=0 to int(window.document.all(SentId).step)-2 
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stepCons=split(eachStep(i), ,, @") 
ifstepCons(l)o M all" then 

if window.document.all(stepCons(3)) is nothing then 
elseif lcase(left(stepCons(3),3))="fno" then 

Set checkRl=window.document.body.createTextRange 
checkRl.moveToElementText(window.document.all(stepCons(3))) 
checkRl .co!lapse(true) 
checkRl .setEndPoint "StartToStart",tempRl 
if len(checkRl.text)<RlCheckLen then 
RlLen=RlLen-l 
R2Len=R2Len-l 
end if 
end if 
end if 

next 

for i=0 to ubound(AHOriHtml)-l 

temp=split(AHOriHtml(i), nAAAAA ") 
iftemp(0)=SentId then 

tempHtml=temp( 1 ) 

exit for 
end if 

next 

window.document.all(SentId).innerHtml=tempHtml 

window.downRange.moveToElementText(window.document.all(SentId)) 
window.do wnRange .co I Iapse(t rue) 
window.downRange.move "character",RlLen 

if window.downRange.parentEIement.id= !t MyList tf then 

window.downRange.move "character", 1 

window.downRange.move "character",-! 
end if 

window.downRange.pasteHtml "##temp##" 
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tempHtml=window.document.all(SentId).innerHtml 

tempHtml=replace(tempHtmI,chr(13)," M ) 
tempHtml=replace(tempHtml s chr(10), n,t ) 

5 

RealPos=instr( 1 ,tempHtml,"##temp##")- 1 
if RealPos<0 then RealPos=0 

tempHtml=repIace(tempHtml 5 ,, ##temp## , ^ m, ) 
10 window.document.aIl(SentId).innerHtml=tempHtmI 

GetPos=RealPos 
End Function 

1 5 Function GetOriHtml(Sentld) 

OriHtml=window.document.all(SentId).innerHtml 

OriHtml=replace(OriHtml 5 chr(13) ? MM ) 
OriHtml=repIace(OriHtml J chr(10), ,,n ) 

20 

GetOriHtml=OriHtml 
End Function 

Function NowHtml(SentId,OriHtml) 
25 on error resume next 

eachStep=split(window.document.alI(SentId).sAdd, MAA ") 
NewHtml=OriHtml 

NewHtml=replace(NewHtml 5 chr(13), MM ) 
NewHtml-replace(NewHtmI,chr( 1 0),"") 
30 for j=0 to cint(window.document.all(SentId).step)-l 

addChar=0 

stepCons=split(eachStepO), M @") 
if j=0 then 

ifstepCons(l)<^"air then 
35 if instr(l 5 stepCons(2), n | ,, ) ::= 0 then 
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NewHtml=mid(NewHtmU,stepCons(2)) & stepCons(l) & 
mid(NewHtml,stepCons(2)+l) 
else 

tempPos=split(stepCons(2) 5 M |") 

NewHtml=mid(NewHtml,l,tempPos(0)) & stepCons(l) & 
mid(NewHtml,cint(tempPos(0))+ 1 +cint(tempPos( 1 ))) 
end if 
end if 

else 

for k=0 toj-1 

stepTemp=split(eachStep(k) 5 M @") 
if instr(l 5 stepCons(2), n r)=0 then 
Pos2=cint(stepCons(2)) 

else 

tempPos=split(stepCons(2), n | M ) 
Pos2=cint(tempPos(0)) 
end if 

ifinstr(l,stepTemp(2), n r) = 0 then 
Posl=cint(stepTemp(2)) 
Pos3-0 

else 

tempPos=split(stepTemp(2) 3 "r) 
Pos 1 =c int(tempPos(0)) 
Pos3=cint(tempPos( 1 )) 
end if 

ifPosl<Pos2 then 

if stepTemp(l)o M all n then 

addChar=addChar+len(stepTemp( 1 ))-Pos3 

end if 
end if 

next 

if stepCons(l)o"air' then 

if instr(l,stepCons(2) J 'T t ) = 0 then 
Pos 1 =cint(stepCons(2)) 

else 
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tempPos=split(stepCons(2) 5 M |") 
Pos 1 =cint(tempPos(0)) 
end if 

if mid(lcase(NewHtml) 9 PosH-l+addChar 5 2)= ^ </ ,, then 
5 if instr(l ,stepCons(2),T)=0 then 

unEndTemp=instr( 1 s mid(NewHtml,stepCons(2)+ 1 +addChar),">") 

NewHtmI=mid(NewHtml,l,stepCons(2)+addCharfunEndTemp) & stepCons(l) & 
10 mid(NewHtml,stepCons(2)+l-faddChar+unEndTemp) 

else 

tempPos=split(stepCons(2), M r) 
unEndTemp=instr(l 5 mid(NewHtml 5 tempPos(0)+l+addChar), n > n ) 

15 

NewHtml-mid(NewHtml,l,tempPos(0)+addChaH-unEndTemp) & stepCons(l) & 
mid(NewHtm l,cint(tempPos(0))+cint(tempPos( 1 ))+ 1 +addChar+unEndTemp) 

end if 

else 

20 if instr(l,stepCons(2) 5 ,, r) == 0 then 

NewHtml=mid(NewHtml, 1 ,stepCons(2)+addChar) & 
stepCons(l) & mid(NewHtmI,stepCons(2)+l+addChar) 

else 

tempPos=split(stepCons(2) J "|") 
25 NewHtml=mid(NewHtml, 1 ,tempPos(0)+addChar) & 

stepCons( 1 ) & mid(NewHtml,cint(tempPos(0))+cint(tempPos( 1 ))+ 1 +addChar) 

end if 
end if 
end if 
30 end if 

next 

NowHtml=NewHtml 
End Function 



35 Function jumpFNQ 
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srcDLObj=window.event.srcElement.id 
editFN() 

window.event.cancelBubble=true 
End Function 

5 

Function fnDL() 
if window.event.button=" 1 " then 
srcDLObj=window.event.srcElement.id 
window.document.selection.empty 
1 0 window.event.cancelBubbIe=true 
end if 
End Function 



Function AddReadingRecordsO 
1 5 NowRRCons=OriRRConsF 

for each fltem in fontCollection 
if left(fItem.id,4)="cons M then 

if window.document.all(fltem.id).sAddo" n then 

ConsTempl=split(window.document.aIl(fItem.id).sAdd J ,tAA ") 
20 1=1 

num=0 

do while(I=l) 

ConsTemp2=split(ConsTempl(num) 5 "@") 
NewCons= n <tr>" 
25 IDTemp=split(ConsTemp2(3),"J , ) 

NewCons^NewCons & "<td align=center><font 
size=2> n &IDTemp(l)& ,, </font></td> n 

NewCons=NewCons & "<td align=center><font 
size=2> n &ConsTemp2(2)& ,, </font></td> M 
30 NewCons=NewCons & "<td align=center><font 

size=2>_</font></td> M 

NewCons=NewCons & "<td align=center><font 

size=2>_</font></td> M 

HCons=replace(ConsTemp2(l), ,, < n J M < M ) 
35 HCons=repIace(HCons, n >" ? M > M ) 
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NewCons=NewCons & "<td align=left><font size=2>" & 
HCons & "</font></td></tr>" 

NowRRCons=NowRRCons & NewCons 

5 num=num+l 

if ConsTempl(num)= ,IM then 1=0 

loop 
end if 
end if 

10 next 

window.document.all( n RRDiv").innerHtml=NowRRCons & "</table>" 
End Function 



Sub ShowOri() 
15 downRange= M " 

window.document.all( M RRDiv").innerHtml=OriRRCons 
for each fltem in fontCollection 
if left(fltem.id,4)= M cons" then 

for i=0 to ubound(A110riHtml)-l 
20 temp=split(AHOriHtml(i) 5 " AAAAAM ) 

if temp(0)=fltem.id then 

fltem . i nnerHtm l=temp( 1 ) 
fltem.step= M r 
fItem.sAdd= ,tn 
25 end if 

next 
end if 

next 

window.document.selection.empty 
30 window.open "delRecords.asp" 

End Sub 

Function SaveCons() 
dim ds 

35 Set ds=CreateObject("RDS.DataSpace M ) 
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dim ServerRds 
Set ServerRds=ds.CreateObject("Serve^ 

ConsApp=" M 
5 for each fltem in fontCollection 
if left(fltem.id,4)="cons" then 
parald=fltem.id 
sAddTemp=window.document.alI(paraId).sAdd 
ifsAddTempo"" then 
10 LlTemp=paraId 

sAddPer=split(sAddTemp," AAM ) 
for j=0 to cint(window.document.all(paraId).step)-2 
sAddCons=split(sAddPerG),"@") 
AppId=sAddCons(3) 
15 if instKUsAddConsCZX'T'JoO then 

OriP=spIit(sAddCons(2) 5 M | M ) 

Posl=OriP(0) 

Pos2=OriP(l) 

else 

20 Posl=sAddCons(2) 

Pos2=sAddCons(2) 
end if 

InsertText=sAddCons( 1 ) 

25 

ConsApp=ConsApp & M RRecords||noclass||RRecords||" & cstr(LlTemp) & 
"llOOIIOOnOOIIOOIIOOllOOH" & cstr(AppId) & "||" & cint(Posl) & "||" & cint(Pos2) & "||" & 
& "II" & cstr(InsertText) & nAAM 
next 

30 end if 

end if 

next 

if ConsAppo"" then ServerRds.ConsApp cstr(ConsApp) 
window.close 
35 End Function 

P25 



Appendix 5 



Total 26 



Function AddCons() 

sAddCons=split(window.document.all( M sAddAir , ).value, MAA ") 
1=1 

num=0 

do while(l=l) 

sAddSent=split(sAddCons(num), M @") 

SentId=sAddSent(0) 

if window.document.all(Sentld) is nothing then 
else 

SentSAdd=window.document.all(SentId).step & "@" & sAddSent(l) & 
"@" & sAddSent(2) & w @" & sAddSent(3) 

window.document.all(SentId).step=cint(window.document.all(SentId).step)+l 

window.document.all(SentId).sAdd=window.document.all(SentId).sAdd 
& SentSAdd & nAA " 
end if 

num=num+l 

if sAddCons(num)= ,,M then 1=0 

loop 

for each fltem in fontCol lection 
if left(fltem.id,4)= n cons n then 

iffItem.sAddo ,, ' , then 

OriHtml=GetOriHtml(fltem.id) 
NewHtml=NowHtml(fItem.id,OriHtml) 
window.document.all(fItem.id).innerHTML=NewHtml 
end if 
end if 

next 
End Function 
</Script> 
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<HEAD> 



<TITLE>::Reading Records: :</TITLE> 
<style type- 'text/css"> 



5 body, input { 



font: 15px Verdana; 



background: #FFFFFF; 

} 

.field Width { 



10 



width: 150px; 



} 

.field Width2{ 
width:200px; 

} 

1 5 .eventList { 

font: llpx Verdana; 
height: 200px; 
width: 375; 

background-color:#FFFFFF; 

20 } 

<7style> 
</HEAD> 

<BODY topmargin= M 0" leftmargin="0" scroll=no 

oncontextmenu= M window.event.returnValue=false"> 
25 <img id- "editCursor" src= n images/edit_cursor.gif ! 

style- 'position:absolute;display:none;"> 

<img src- 'images/small_pencil.gif ' style- 'display :none;"> 

<input type="text M id="inputBox" size="25" value-"' style="position:absolute;z- 

index:l;border:0;color:black;background:#33CCFF;display:none; M 
30 onkeyup- 'inputBoxKeyup() M onmousedown= M window.event.cancelBubble=true M 

onmouseup- M window.event.cancelBubble=true ,! 

onclick="window.event.cancelBubble=true" 

ondblclick="window.event.cancelBubbIe=true M > 

<center><font size=4>l 10B</font></center> 
35 <table align=center border=l bordercolor=black width=800> 
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<tr> 

<td width=l 00% align=center> 
<table border=0 width=100% align=center> 
<tr> 

5 <td align=center width=25%> 

<center><font size=4> 1 0 1 B</font></center> 

<input type=button onmousedown="window.eventxancelBubble=true" 
onmouseup="window.eventxancelBubble==true" id="InsertTextBtn" value= M Insert text 
object" class="fieldWidth" onclick="insertFootNote()"> 
10 </td> 

<td align=center width=25%> 
<center><font size=4> 1 02B</font></center> 

<input type=button onmousedown="window.event.cancelBubble=true" 
onmouseup= ft window.event.cancelBubble=true M id- 'AddDelBtn" value- 'Add a 
15 deletion line" class="field Width" onclick="addDelLine()"> 
</td> 

<td align=center width=25%> 
<center><font size=4> 1 03B</font></center> 

<input type=button onmousedown="window.event.cancelBubble=true" 
20 onmouseup="window.event.cancelBubble=true n id- 'OriBtn" value="Display original 
content" class-"fieldWidth2" onclick="ShowOri() tf > 
</td> 

<td align=center width=25%> 
<center><font size=4> 1 04B</font></center> 
25 <input type^button onmousedown="window.event.cancelBubble=true" 

onmouseup="window.event.cancelBubble=true" id- 'OriBtn" value="Reappear reading 
records" class="fieldWidth2" onclick="AddCons()"> 
</td> 
</tr> 
30 </table> 
</td> 
</tr> 
</table> 
<br><br> 

3 5 <center><font size=4> 1 20B</font></center> 
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<center><font size=4>Reading Records</font></center> 
<table align=center border=l bordercolor=black width=800> 
<tr> 

<td width=100%> 

5 <div style= n OVERFLOW: auto;width:798;height: 1 30" id= n RRDiv'*> 

</div> 
</td> 
</tr> 
</table> 
10 <br><br> 

<center><font size=4> 1 30B</font></center> 
<table align=center border=l bordercolor=black width=800> 
<tr> 

<td width=100% id= M MyList"> 
15 <br> 

<font color="bIue ff step-T' sAdd= M " id=consl onmousedown- ! fontdown()" 
onmouseup-'fontupO" oncIick= M fontclick() M 

ondblclick= f Tontdblclick()">      &nb 
        &nb 

20        &^ 

       &^ color= M blue" 
step-T ? sAdd= n,t id=cons2 onmousedown= n fontdown() M onmouseup= M fontup()" 
onclick="fontclick()" ondblclick- f fontdblclick() M >The Gettysburg Address Abraham 
Lincoln</font><font color="blue" step= n l M sAdd= MM id=cons3 

25 onmousedown- ! fontdown()" onmouseup-'fontupO" onclick="fontclick()" 
ondblclick= f Tontdblclick() M ><br><br>     & 
p; </font><font color="blue" step= M l M sAdd= n " id=cons4 
onmousedown= M fontdown()" onmouseup-'fontupO" onclick= ,, fontclick() n 
ondblclick =,, fontdblclick() n >Four Scores and seven years ago our fathers brought forth 

30 this continent a new nation, conceived in liberty, and dedicated to the proposition that 
all men are created equal.</font><font color="blue" step-'l" sAdd- "' id=cons5 
onmousedown= n fontdown() M onmouseup-'fontupO" onclick-'fontclickO" 
ondblclick= , Tontdblclick() ,, ><br><br>      &nb 
p; </font><font color="blue" step="l" sAdd= ttM id=cons6 

35 onmousedown- 'fontdownO" onmouseup-'fontupO" onclick- 'fontclickO" 
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ondblclick="fontdblclick() M >Now we are engaged in a great civil war, testing whether 
that nation, or any nation so conceived and so dedicated, can long endure. We are met 

on a great battle fields of that war this is a ...</font> 

<br>  
5 </td> 
</tr> 
</table> 
</BODY> 
</HTML> 
1 0 <Script Language- ' VBScript M > 
dim 

downRange,ClkStartPoint,PosTop s PosLeft,footNote,PageChange,insertType,srcDLObj, 
selTex^fontCollectionjOriRRConSjOriRRConsFjSrcStartObjjSrcEndObjjConsApp 
dim AHOriHtmlO 
15 ReDim AllOriHtml(O) 

Sub window_onload() 

OriRRCons= n <table border=l bordercolor='#cccccc f width=780 align=left 
cellspacing=l cellpadding=0><tr><td bgcolor=#cccccc align=center width=10%><font 

20 size=2>ID</font></td><td bgcolor=#cccccc align=center width= 1 0%><font 

size=2>Location</font></td><td bgcolor=#cccccc align-center width=13%><font 
size=2>Type</font></td><td bgcolor=#cccccc align=center width=13%><font 
size=2>Contents</font></td><td bgcolor=#cccccc align=center width=54%><font 
size=2>HTML Codes</font></td></tr></table> n 

25 window.document.all( n RRDiv").innerHtml=OriRRCons 

OriRRConsF- '<table border=l bordercolor='#cccccc f width=780 align=left 
cellspacing=l cellpadding=0><tr><td bgcolor=#cccccc align=center width=10%><font 
size=2>ID</font></td><td bgcolor=#cccccc align=center width=10%><font 
size=2>Location</font></td><td bgcolor=#cccccc align=center width=13%><font 

30 size=2>Type</font><ytd><td bgcolor=#cccccc align=center width=13%><font 

size=2>Contents</font></td><td bgcolor=#cccccc align=center width=54%><font 
size=2>HTML Codes</font></td></tr>" 



35 



set fontCol lect ion=document.al 1 .tags(" font") 
num=0 
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for each fltem in fontCollection 
if left(fItem.id ? 4)= n cons M then 
parald=fltem.id 

AHOriHtml(num)=paraId & ,,AAAAA " & 
5 window.document.all(paraId).innerHtml 
num=num+l 

ReDim Preserve AllOriHtml(num) 
end if 

next 

10 

Set downRange=window.document.body.createTextRange 
downRange.moveToElementText window.document.all(' l cons2 ,l ) 
downRange.collapse(true) 
editCursorDisplay() 
15 srcDLObj="cons2" 
End Sub 

Sub fontdown() 
selText= MM 

20 if window.event.srcElementparentElemenUd- ? MyList" then 

window.editCursor.style.display= M none M 
srcDLObj=window.event.srcElement.id 
end if 
End Sub 

25 

Sub fontup() 

if window.event.srcElement.parentElement.id="MyList" then 
if window.document.selection.createRange.texto"" then 
window.editCursor.style.display="none M 
30 selText^window.document.selection.createRange.text 
Set Range l=window.document.selection.createRange 
Set Range2=window.document.selection.createRange 
Range 1 .collapse(true) 
Range2 .col lapse(false) 
35 srcStartObj=Rangel .parentElement.id 
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srcEndObj=Range2.parentEIement.id 

else 

selText= MM 

waitTemp=DownPos(window.event.srcElement.id) 
5 waitTemp=editCursorDisplay() 
end if 
end if 
End Sub 

10 Sub fontclick() 

End Sub 

Sub fontdblclickO 

1 5 if window.event.srcElement.parentElement.id= M MyList M then 

if window.document.selection.createRange.texto"" then 
window.editCursor.style.display="none" 
srcDLObj=window.event.srcElement.id 
selText=window.document.selection.createRange.text 

20 Set Range l=window.document.selection.createRange 

Set Range2=window.document.selection.createRange 
Range 1 .collapse(true) 
Range2.collapse(false) 
srcStartObj=Range 1 .parentElement.id 

25 srcEndObj-Range2.parentElement.id 
end if 

elseif window.event.srcElement.id= ,, editCursor" then 

if window.document.selection.createRange.texto 1 "' then 
window.editCursor.style.display-'none" 
3 0 srcDLObj =wi ndo w. do wnRange . parentE lement . id 

selText=window.document.selectionxreateRange.text 
Set Range l=window.document.selection.createRange 
Set Range2=window.document.selection.createRange 
Range 1 .collapse(true) 
3 5 Range2 .col lapse(false) 

P6 



Appendix 6 



Total 26 



srcStartObj==Rangel.parentElement.id 
srcEndObj =Range2 .parentElement. id 
end if 
end if 
5 End Sub 



Sub editCursor_ondblclick() 

window.document.alI(window.downRange.parentElement.id).ondbIclick 
window.event.cancelBubble=true 
10 End Sub 



Sub addDelLine() 

ifselTexto"" then 

if srcStartObjosrcEndObj then 
15 msgbox "It can't add a deletion line here!",64 5 "Warning" 

window.document.selection.empty 
exit sub 
end if 

if instr(l,lcase(window.document.selection.createRange.htmltext) 5 "<img 
20 ")o0 then 

msgbox "It can't add a deletion line here !" 5 64 5 " Warning" 
window.document.selection.empty 
exit sub 
end if 

25 selId=srcDLObj 

PosData=GetSelPos(selId) 
PosTemp=split(PosData, M ||r) 



sPos=PosTemp(0) 

30 

appld-'unl" & window.document.all(selId).step & "_" & selld 
window.document.all(selId).sAdd=window.document.all(selId).sAdd & 

window.document.all(selId).step & "@<s id= ,M &appId& M, >" & selText & "</s>@" & 

sPos & "|" & len(selText) &"@"&appld&"" & nAA " 
35 window.document.all(selId).step=cint(window.document.all(selId).step)+l 

P7 



Appendix 6 



Total 26 



PageChange=true 
AddReadingRecords() 

eachStep=split(window.document.all(selId).sAdd, ,,AAM ) 

tempHtml^window.document.alKsel^.innerHtml 

tempHtml=repIace(tempHtml 5 chr(13), MM ) 

tempHtml=replace(tempHtml 5 chr(10), MM ) 

NewHtm l=tempHtm 1 

for j=0 to cint(window.document.all(selId).step)-2 
addChar=0 

stepCons=split(eachStepO), M @ M ) 
if j=0 then 

if stepCons(l)o M all M then 

if instr( 1 ,stepCons(2), n r) = 0 then 

NewHtml=mid(NewHtml,l,stepCons(2)) & stepCons(l) 
& mid(NewHtml,stepCons(2)+l) 

else 

tempPos=split(stepCons(2), M | M ) 

NewHtml=mid(NewHtml 5 l 5 tempPos(0)) & stepCons(l) & 
mid(NewHtml,cint(tempPos(0))+l+cint(tempPos(l))) 

end if 
end if 

else 

for k=0 toj-1 

stepTemp=split(eachStep(k),"@ n ) 
if instr(l,stepCons(2VT') = 0 then 
Pos2=cint(stepCons(2)) 

else 

tempPos=split(stepCons(2), n r) 
Pos2=cint(tempPos(0)) 
end if 

if instr(l,stepTemp(2),'T , ) = 0 then 
Pos 1 =cint(stepTemp(2)) 
Pos3=0 

else 

tempPos=split(stepTemp(2V!') 
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Posl=cint(tempPos(0)) 
Pos3=cint(tempPos(l)) 
end if 

ifPosl<Pos2 then 
5 if stepTemp(l)o"air then 

addChar=addChar+len(stepTemp(l))-Pos3 
end if 
end if 

next 

10 if stepCons(l)o"all M then 

if instr(l ,stepCons(2),'T f ) =: 0 then 
Pos 1 =cint(stepCons(2)) 

else 

tempPos=split(stepCons(2) ? M r) 
15 Pos 1 =cint(tempPos(0)) 

end if 

ifmid(lcase(NewHtml) 5 Posl+l+addChar,2)= M </ M then 
if instr(l 5 stepCons(2) ? n | M ) = 0 then 

20 unEndTemp=instr(l,mid(NewHtml 5 stepCons(2)+l+addChar) J M >") 

NewHtml^mid{NewHtml,l J stepCons(2)+addChar+unEndTemp) & stepCons(l) & 
mid(NewHtml,stepCons(2)+l+addChar+unEndTemp) 

else 

25 tempPos=split(stepCons(2),"|") 

unEndTemp=instr(l 5 mid(NewHtml,tempPos(0)+l+addChar), M > n ) 

NewHtm^midCNewHtmlJ^empPos^+addChar+unEndTemp) & stepCons(l) & 
30 mid(NewHtml ? cint(tempPos(0))+cint(tempPos( 1 ))+ 1 +addChar+unEndTemp) 

end if 

else 

if instr(l J stepCons(2), ,t | n ) == 0 * hen 

NewHtmHmid(NewHtml, 1 ,stepCons(2)+addChar) & 

35 stepCons(l) & mid(NewHtmI,stepCons(2)+l+addChar) 
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else 

tempPos=split(stepCons(2) ? M | M ) 
NewHtml=mid(NewHtml, 1 ,tempPos(0)+addChar) & 
stepCons( 1 ) & mid(NewHtmI J cint(tempPos(0))+cint(tempPos( 1 ))+ 1 +addChar) 

end if 
end if 
end if 
end if 

next 

window.document.all(selId).innerHTML=NewHtml 
window.document.selection.empty 
selText= M " 
end if 
End Sub 

Dim tempSrcDLObj 
Sub insertFootNote() 

if downRange- or window.editCursor.style.display="none" then exit sub 

footNote= M " 

insertType= f 'fn M 

tempSrcDLObj=srcDLObj 

window. inputBox.sty le.posTop=PosTop+ 1 6 

window.inputBox.style.posLeft=PosLeft 

window. inputBox. value- 

window. inputBox.sty le.display^" " 

window.inputBox.focus() 
End Sub 

Sub inputBox_onblur() 

if window.inputBox.valueo'"' then 
inputBoxChange() 

end if 
End Sub 

Sub addFootNote() 
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if footNote="" then exit sub 
srcDLObj=tempSrcDLObj 
RealPos=GetPos(srcDLObj) 
OriHtml=GetOriHtml(srcDLObj) 

5 

appld- 'fno" & window.document.all(srcDLObj).step & "_" & srcDLObj 
window.document.all(srcDLObj).sAdd=window.document.all(srcDLObj).sAdd & 
& window.document.alI(srcDLObj).step & "@<img align=absMiddle 
src='images/small_pencil.gif id= ,M & appld & '" border=0 alt="' & footNote & m 
10 style- cursonhand' onclick- jumpFN()' onmousedown- fhDLO^®" & RealPos & "@" 
& appld & & " AA " 
PageChange^true 
AddReadingRecords() 
footNote=replace(footNote,chr( 1 3),"<br> n ) 
1 5 NewHtml=NowHtml(srcDLObj,OriHtml) 

window.document.all(srcDLObj).innerHTML=NewHtml 

window.document.all(srcDLObj).step=cint(window.document.all(srcDLObj).step) 

+1 

20 window.editCursor.style.display= M none" 
downRange- " f 
End Sub 

Function inputBoxKeyup() 
25 if window.event.keyCode=27 then 

window.inputBox.style.display-'none" 
window.inputBox.value= ttM 
end if 

if window.inputBox.valueo"" then 
30 if window.event.keyCode=l 3 then inputBoxChange() 

end if 
End Function 

Function inputBoxChange() 
35 if window.inputBox.valueo" 1 ' then 



Pll 



Appendix 6 



Total 26 



footNote=window.inputBox. value 
if insertType= M fn M then 



addFootNote() 
elseif insertType="efn" then 



5 



editFootNoteQ 



end if 



window. inputBox. value- ' " 
window. inputBox.style.display= n none' 



end if 
10 End Function 

Sub editFN() 

insertType-'efn" 
footNote=" M 
1 5 appId=srcDLObj 

fnTemp=window.document.all(appId).alt 

Set tempRange=window.document.body.createTextRange 
tempRange.moveToElementText window.document.all(appld) 
20 tempRange.collapse(true) 



window.inputBox.style.posTop=tempRange.offsetTop+16 
window.inputBox.style.posLeft=tempRange.offsetLeft 



window.inputBox.style.display= ,IM 
window.inputBox.focus 
End Sub 

30 Sub editFootNote() 

appId=srcDLObj 
iffootNote= MM then 

msgbox "Please input text! n ,48,"Warning" 
srcDLObj="_ M 
35 exit sub 



25 



window.inputBox.value=fnTemp 
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end if 

window.document.all(appId).alt=footNote 
paraId=window.document.all(appId).parentElement.id 



5 eachStep=split(window.document.all(paraId).sAdd 5 nAA ") 
for i=0 to cint(window.document.all(paraId).step)-l 
stepCons=spl it(eachStep(i), "@") 
if stepCons(3)=appId then 

for j=0 to cint(window.document.all(paraId).step)-2 
10 stepConsTemp=split(eachStep(j) 5 M @ t ') 

if j<i then 

stepTemp=stepTemp & stepConsTemp(O) & "@" & 
stepConsTemp(l) & "@" & stepConsTemp(2) & "@" & stepConsTemp(3) & MAA " 
elseif j=i then 

15 stepTemp=stepTemp & stepConsTemp(O) & "@<img 

src='images/small_pencil.gif id= ,M &appId& m border=0 alt= m &footNote& ,M 
style^cursonhand' onclick= , jumpFN()'>@ M & stepConsTemp(2) & "@" & 
stepConsTemp(3) & HAA " 

elseif j>i then 

20 stepTemp=stepTemp & stepConsTemp(O) & "@" & 

stepConsTemp(l) & "@" & stepConsTemp(2) & "@" & stepConsTemp(3) & " AAM 
end if 

next 
exit for 
25 end if 

next 

window.document.all(paraId).sAdd=stepTemp 
PageChange=true 
AddReadingRecords() 
30 srcDLObj— "_" 

End Sub 



Function DownPos(Sentld) 

Set downRange=window.document.body.createTextRange 
35 downRange.moveToPoint window.event.x,window.event.y 
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Set tempRange = document.body.createTextRange 
tempRange.moveToElementText(document.alI(SentId)) 
downRange.setEndPoint M StartToStart M ,tempRange 
tempClk=downRange.text 
tempClk=replace(tempClk J chr(10) 5 MM ) 



tempClk==repIace(tempCIk,chr(13); ,M ) 
CIkStartPoint=len(tempClk) 
downRange.collapse(false) 
End Function 

10 

Function editCursorDisplay() 

downX=window.downRange.offsetLeft 
downY=window.downRange.offsetTop 

1 5 window.editCursor.style.display="none M 

PosTop=window.downRange.offsetTop-fwindow.document.body.scrollTop 

PosLeft==window.downRange.offsetLeft+window.document.body.scrollLeft 
window.editCursor.style.posTop=PosTop 



20 



window.editCursor.style.posLeft=PosLeft-5 

window.editCursor.style.display= MM 

window.editCursor.src= fl images/edit_cursor.gif 



End Function 



25 



Function GetSelPos(Sentld) 

Set seIectRl=window.document.selection.createRange 
Set selectR2=window.document.selection.createRange 
selectRl .collapse(True) 

selectR2.collapse(False) 



30 



Set tempRl=window.document.body.createTextRange 

tempRl.moveToElementText(window.document.all(SentId)) 

tempRl.coIlapse(true) 



35 



1=1 

selectRl .setEndPoint ft StartToStart ,, ,tempRl 
tempText=replace(selectRl.text J chr(10) s MM ) 
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tempText=rep lace(tempText, chr( 1 3 ), " 11 ) 
R 1 Len=len(tempText) 
RlCheckLen=len(selectRl .text) 
selectRl.collapse(false) 
5 selectRl.move "character",-cint(RlLen) 

selectRl .setEndPoint "StartToStart M ,tempRl 
if len(selectRl.htmlText)=0 then 1=0 
selectR 1 .collapse(false) 
do while(l-l) 
1 0 selectRl .move "character 1 ',- 1 

selectRl .setEndPoint "StartToStart",tempRl 

if len(selectRl.htmlText)=0 then 1=0 

selectRl .collapse(false) 

RlLen=RlLen+l 

1 5 loop 

Set tempR2=window.document.body.createTextRange 
tempR2.moveToElementText(window.document.all(SentId)) 
tempR2.collapse(true) 
20 1=1 

selectR2.setEndPoint n StartToStart n ,tempR2 
tempText=replace(selectR2.text,chr(10) ) MM ) 
tempText=replace(tempText,chr(13), t,M ) 
R2Len=len(tempText) 
25 selectR2.collapse(false) 

selectR2.move M character",-cint(R2Len) 
selectR2.setEndPoint "StartToStart" 5 tempR2 
if len(selectR2.htmlText)=0 then 1=0 
selectR2.collapse(false) 
30 dowhile(l=l) 

selectR2.move "character M 5 -l 
selectR2.setEndPoint M StartToStart n ,tempR2 
if len(selectR2.htmlText)=0 then 1=0 
selectR2.collapse(false) 
35 R2Len=R2Len+l 
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loop 

eachStep=split(window.document.all(SentId).sAdd, MAAM ) 
for i=0 to int(window.document.aIl(SentId).step)-2 
5 stepCons=split(eachStep(i), M @") 
ifstepCons(l)o n all" then 

if window.documentall(stepCons(3)) is nothing then 
elseif lcase(left(stepCons(3) 3 3)) =,, fno" then 

Set checkRl^window.document.body.createTextRange 
10 checkRl.moveToElementText(window.document.all(stepCons(3))) 

checkRl .collapse(true) 
checkRl.setEndPoint "StartToStart M ,tempRl 
if len(checkRl ,text)<=Rl CheckLen then 
RlLen=RlLen-l 
15 R2Len=R2Len-l 

end if 
end if 
end if 

next 

20 

for i=0 to ubound(A110riHtml)-l 

temp=split(A110riHtml(i) J ,,AAAAA,t ) 
iftemp(0)=SentId then 
tempHtml=temp( 1 ) 
25 exit for 

end if 

next 

tempHtml-replaceOempHtmUhKn), 1 "') 
tempHtml=replace(tempHtml J chr(10), ,,n ) 
30 window.document.all(SentId).innerHtml=tempHtml 

selectRl.moveToElementText(window.document.all(SentId)) 
selectRl xollapse(true) 
selectRl .move M character M ,RlLen 
3 5 selectR2 .moveToElementText(window .document.al l(Sentld)) 
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seIectR2.collapse(true) 
selectR2.move "character",R2Len 

FDelete=false 
5 LDelete=false 

if lcase(right(window.document.selectionxreateRange.htmltext 5 4))= n <br> ,! then 
selectR2.move "character' 1 ,- 1 

OriL=len(window.document.all(SentId).innerHtml) 
10 selectRl .pasteHtml "|#tempS#r 

if Ien(window.document.all(SentId).innerHtml)-OriL=14 then FDelete=true 

OriL=len(window.document.all(SentId).innerHtml) 

selectR2.pasteHtml "|#tempE#|" 

if len(window.document.all(SentId).innerHtml)-OriL=14 then LDelete=true 

15 

tempHtml=window.document.all(SentId).innerHtml 

if FDelete then tempHtml=replace(tempHtml," |#tenipS#r ? M |#tempS#| n ) 
if LDelete then tempHtml=repIace(tempHtml, M  |#tempE#r," |#tempE#| M ) 
tempHtml=replace(tempHtml ^ chr(13), m, ) 
20 tempHtmI=replace(tempHtml J chr(10) J Mn ) 

sPos=instr(l ? tempHtml ? ,, |#tempS#| n )-l 

tempHtml=replace(tempHtml J ,, |#tempS#r' J nn ) 
25 window.document.alI(SentId).innerHtml=tempHtml 
tempHtml^^window.document.al^Sent^.innerHtml 
tempHtml=replace(tempHtmI,chr( 1 3),"") 
tempHtml=replace(tempHtml,chr(10), Mtt ) 
ePos^nstKUtempHtml/'^tempESI")-! 

30 

tempHtml=repIace(tempHtml, M |#tempE#r ? nM ) 
window.document.all(SentId).innerHtml=tempHtml 

GetSeIPos=sPos & "III" & ePos 
35 End Function 
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Function GetPos(Sentld) 

Set tempRl=window.document.body.createTextRange 
tempRl.moveToElementText(window.document.all(SentId)) 
5 tempRl .collapse(true) 

1=1 

window.downRange.setEndPoint "StartToStart",tempRl 



window.downRange.select 

10 

R 1 Len=len(window.downRange.text)- 1 0 
RlCheckLen=len(window.downRange.text) 
window.downRange.collapse(false) 
window.downRange.move "character",-cint(RlLen) 
1 5 window.downRange.setEndPoint "StartToStart M ,tempRl 

if len(window.downRange.htmlText)=0 then 1=0 
window.downRange.collapse(false) 
do while(l=l) 

window.downRange.move "character",- 1 
20 window.downRange.setEndPoint M StartToStart",tempRl 

if len(window.downRange.htmlText)=0 then 1=0 

window.downRange.collapse(false) 

RlLen=RlLen+l 

loop 

25 

eachStep=split(window.document.all(SentId).sAdd," AA ") 
for i=0 to int(window.document.all(SentId).step)-2 
stepCons=split(eachStep(i) 9 M @ n ) 
if stepCons(l)o"all" then 
30 if window.document.all(stepCons(3)) is nothing then 

elseif lcase(left(stepCons(3),3))="fno" then 

Set checkRl=window.document.body.createTextRange 
checkRl.moveToElementText(window.document.all(stepCons(3))) 
checkRl.collapse(true) 
35 checkRl .setEndPoint "StartToStarf\tempRl 
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if len(checkRl .text)<Rl CheckLen then 

RlLen=RlLen-l 

R2Len=R2Len-l 
end if 

5 end if 

end if 

next 

for i=0 to ubound(A110riHtmI)-l 
10 temp=split(AHOriHtml(i), l,AAAAAM ) 
iftemp(0)=SentId then 
tempHtm l=temp( 1 ) 
exit for 
end if 

1 5 next 

window.document.all(SentId).innerHtml=tempHtml 

window.downRange.moveToElementText(window.document.all(SentId)) 
window.downRange.collapse(true) 
20 window.downRange.move "character", RILen 

if window.downRange.parentElement.id="MyList" then 
window.downRange.move "character", 1 
window.downRange.move "character",- 1 
25 end if 

window.downRange.pasteHtml "##temp##" 
tempHtmI=window.document.all(SentId).innerHtml 

30 tempHtml=replace(tempHtml,chr(l 3),"") 

tempHtml=replace(tempHtml,chr(10), M ") 

RealPos=instr(l,tempHtml,"##temp##")-l 
if RealPosO then RealPos=0 

35 
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tempHtml=replace(tempHtml,"##temp## M ; m ) 
window.document.all(SentId).innerHtml=tempHtml 

GetPos=ReaIPos 
5 End Function 

Function GetOriHtml(Sentld) 

OriHtmI=window.document.all(SentId).innerHtml 

1 0 OriHtml=replace(OriHtml,chr( 1 3),"") 

OriHtml=replace(OriHtml,chr(10); M, ) 

GetOriHtml=OriHtml 
End Function 

15 

Function NowHtml(SentId,OriHtml) 
on error resume next 

eachStep=split(window.document.all(SentId).sAdd, MAAn ) 
NewHtml=OriHtml 
20 NewHtml=replace(NewHtml 9 chr(13) > ,,n ) 
NewHtml=replace(NewHtml 5 chr(10) 3 MM ) 
for j=0 to cint(window.document.all(SentId).step)-l 
addChar=0 

stepCons=spIit(eachStepG), M @ M ) 
25 if j=0 then 

if stepCons(l)o M all M then 

if instr(l J stepCons(2), , T , ) = 0 then 

NewHtml=mid(NewHtml,l,stepCons(2)) & stepCons(l) & 
mid(NewHtmI,stepCons(2)+l) 
30 else 

tempPos=split(stepCons(2), M | n ) 

NewHtml=mid(NewHtmU,tempPos(0)) & stepCons(l) & 
mid(NewHtml J cint(tempPos(0))-M+cint(tempPos(l))) 
end if 

35 end if 
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else 

for k-0 toj-1 

stepTemp=split(eachStep(k), f '@") 
if instr(l J stepCons(2) ) , T , )=0 then 
5 Pos2=cint(stepCons(2)) 

else 

tempPos=split(stepCons(2) , " | ") 
Pos2=cint(tempPos(0)) 
end if 

10 if instr(l,stepTemp(2), M n=0 then 

Pos 1 =cint(stepTemp(2)) 
Pos3=0 

else 

tempPos=split(stepTemp(2), n r) 
15 Pos 1 =cint(tempPos(0)) 

Pos3=cint(tempPos( 1 )) 
end if 

ifPosl<Pos2 then 

if stepTemp(l)o"all M then 
20 addChar=addChar+len(stepTemp( 1 ))-Pos3 

end if 
end if 

next 

ifstepCons(l)o"air then 
25 if instr(l,stepCons(2), n r) == 0 then 

Pos 1 =cint(stepCons(2)) 

else 

tempPos=split(stepCons(2), " | ") 
Pos 1 =cint(tempPos(0)) 
30 end if 

if mid(lcase(NewHtml),Pos 1 +l+addChar,2)= M </ M then 
if instr(l 5 stepCons(2)/ , |") = 0 then 



unEndTemp=instr(l,mid(NewHtml,stepCons(2)+l+addChar) ) "> n ) 



35 
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5 



NewHtml=mid(NewHtml,l s stepCons(2)+addChar+unEndTemp) & stepCons(l) & 
m id (NewHtm I, stepCons(2)+ 1 +addChar+unEndTem p) 

else 

tempPos=split(stepCons(2) 5 , T*) 
unEndTemp=instr(l,mid(NewHtmMempPos(0)+l+addChar), M > n ) 



NewHtml=mid(NewHtml,l,tempPos(0)+addChar+unEndTemp) & stepCons(l) & 
mid(NewHtml,cint(tempPos(0))+cint(tempPos(l))+l+addChar+unEnd 
10 end if 

else 

if instr(l,stepCons(2), n r)=0 then 

NewHtml=mid(NewHtml,l ,stepCons(2)+addChar) & 
stepCons(l) & mid(NewHtml 5 stepCons(2)+l+addChar) 
15 else 

tempPos=split(stepCons(2), ,, ^ , ) 
NewHtml-mid(NewHtml, 1 ,tempPos(0)+addChar) & 
stepCons( 1 ) & mid(NewHtml 9 cint(tempPos(0))+cint(tempPos( 1 ))+ 1 +addChar) 

end if 

20 end if 

end if 
end if 

next 

NowHtml=NewHtml 
25 End Function 



Function jumpFNO 
srcDLObj^window.event.srcElement.id 
editFN() 

30 window.event.cancelBubble=true 
End Function 



Function fnDL() 
if window.event.button=" 1 " then 
35 srcDLObj=window.event.srcElement.id 
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window.document.selection.empty 
window.event.cancelBubble=true 
end if 
End Function 

5 

Function AddReadingRecords() 
NowRRCons=OriRRConsF 
for each fltem in fontCollection 
if left(fItem.id,4)= M cons" then 
10 if window.document.all(fItem.id).sAddo MM then 

ConsTempl=spIit(window.document.alI(fItem.id).sAdd; ,AA ") 
1=1 

num=0 

do while(l=l) 

1 5 ConsTemp2=split(ConsTemp 1 (num),"@ M ) 

NewCons-'<tr> n 
IDTemp=split(ConsTemp2(3) s n _") 
NewCons=NewCons & "<td align=center><font 
size=2>"&IDTemp( 1 )&"</font></td>" 
20 NewCons^NewCons & "<td align=center><font 

size=2>"&ConsTemp2(2)& ,, </font></td> lt 

NewCons=NewCons & n <td align=center><font 

size=2>_</font></td> M 

NewCons=NewCons & "<td align=center><font 

25 size=2>_</font></td> M 

HCons=replace(ConsTemp2(l), M < M ) M < M ) 
HCons=replace(HCons J M > n , M > n ) 
NewCons=NewCons & "<td align=left><font size=2>" & 
HCons & "</font></td></tr>" 
30 NowRRCons=NowRRCons & NewCons 

num=num+l 

if ConsTempl(num)= MM then 1=0 

loop 

35 end if 
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end if 

next 

window.document.alI( ,, RRDiv M ).innerHtml=NowRRCons & M </table>" 
End Function 

5 

Sub ShowOri() 

waitTemp=SaveCons() 
downRange-"' 

window.document.all( M RRDiv n ).innerHtmI=OriRRCons 
10 for each fltem in fontCoIlection 

if left(fltem.id,4)="cons" then 

for i=0 to ubound(AI10riHtmI)-l 

temp=split(A110riHtml(i) 5 MAAAAA ' , ) 
if temp(0)=fltem.id then 
1 5 fltem . innerHtm l=temp( 1 ) 

fltem.step='T' 
fltem.sAdd= tm 
end if 

next 

20 end if 

next 

window.document.selection.empty 
End Sub 



25 Function SaveCons() 
ConsApp=" M 

for each fltem in fontCoIlection 
if left(fltem.id,4)="cons" then 
parald=fltem.id 
30 sAddTemp=window.document.all(paraId).sAdd 
ifsAddTempo"" then 

LlTemp=paraId 
sAddPer=split(sAddTemp J MAAM ) 
for j-0 to cint(window.document.aIl(paraId).step)-2 
35 sAddCons=split(sAddPerG), M @ n ) 
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AppId=sAddCons(3) 
OriP-sAddCons(2) 
InsertText=sAddCons( 1 ) 



ConsApp=ConsApp & parald & "@" & InsertText & "@" & OriP & "@" 
& Appld & " AA " 

next 
end if 
end if 

next 
End Function 



Function AddCons() 

if ConsApp-" 1 then exit function 

sAddCons=split(ConsApp, MAAn ) 

1=1 

num=0 

do while(l=l) 

sAddSent=split(sAddCons(num) ? ^ @ l, ) 

SentId=sAddSent(0) 

if window.document.all(Sentld) is nothing then 
else 

SentSAdd=window.document.all(SentId).step & "@" & sAddSent(l) & 
"@" & sAddSent(2) & "@" & sAddSent(3) 

window.document.all(SentId).step=cint(window.document.all(SentId).step)+l 

window.document.all(SentId).sAdd=window.document.all(SentId).sAdd 
& SentSAdd & " AAM 
end if 

num=num+l 

if sAddCons(num)= Mn then 1=0 

loop 



for each fltem in fontCollection 
if left(fItem.id,4)= H cons" then 
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iffltem.sAddo"" then 

OriHtml=GetOriHtml(fltem.id) 
NewHtml=NowHtml(fItem.id,OriHtml) 
window.documental l(fltem. id). innerHTML=NewHtm 1 
5 end if 

end if 

next 

ConsApp-"" 
AddReadingRecords() 
10 End Function 
</Script> 
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